home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / docs / lists / DevGuide.lha / DevGuide / MyConvert.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1999-02-14  |  1.7 KB  |  63 lines
  1. /*************************************************
  2.  * myConvert.rexx to split check1 to System dir  *
  3.  * V2.0 © Heiko Schröder 98/99                   *
  4.  *************************************************
  5.  * 2.0 - benutzt VersionWB                       *
  6.  * 1.2 - kontrolliert auch ..._020 usw           *
  7.  * 1.1 - Bug behoben, wenn kein Version String   *
  8.  *       gefunden wurde                          *
  9.  * 1.0 - erstes Release, um auch Files die nicht *
  10.  *       im Systempfad liegen, checken zu können *
  11.  *************************************************/
  12.  
  13. ende=0
  14. Open("ausgabe","ram:vwb_check","R")
  15.  
  16. filename=readln("ausgabe")
  17. Do While 1
  18.    x=readln("ausgabe")
  19.    If pos("NAME", upper(x)) then do
  20.       vwbname=x
  21.       leave
  22.    End
  23.    If eof("ausgabe") then leave
  24. End
  25. Version=readln("ausgabe")
  26. If EOF("ausgabe") then ende=1
  27.    else Datum  =readln("ausgabe")
  28.  
  29. Close("ausgabe")
  30.  
  31. /* Name ohne Verzeichnis */
  32. filename=Delstr(filename,1,6)
  33. Trennung=max(index(filename,":"),lastpos("/",filename))
  34. name=Delstr(filename,1,Trennung)
  35. poss=pos(".DEVICE",upper(name))
  36. name=Left(name,poss+6)
  37. address command '"SetEnv" filename='name
  38.  
  39. If ende=1 then do
  40.    Version="0.0"
  41.    vwbname=name
  42.    Datum="??.??.??"
  43. end
  44. else do
  45.    Version=Strip(delstr(version,1,9))
  46.    pos1=POS(" ",version); IF pos1~=0 THEN Version=DELSTR(version,pos1)
  47.    Datum=delstr(version,1,6)
  48. End
  49.  
  50. /* Wenn Version nicht zu ermitteln ist, dann auf 0.0 */
  51. IF version="" THEN version="0.0"
  52.  
  53. /* V39.0 in 39.0 umwandeln */
  54. IF POS("V",UPPER(version)) THEN version=DELSTR(version,1,1)
  55.  
  56. /* Wenn Version nicht zu ermitteln ist, dann auf 0.0 */
  57. IF DATATYPE(version,'N')=0 THEN version="0.0"
  58.  
  59. /* Variablen speichern */
  60. address command '"SetEnv" checktemp1='name||" "||version
  61. address command '"SetEnv" check1='name||" "||version
  62. Exit
  63.